home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
ada
/
c01lab1.zip
/
ADAWKBK
/
SOL1-4.ADA
< prev
next >
Wrap
Text File
|
1992-11-11
|
460b
|
21 lines
-- Problem 1.4
-- by Rick Conn
with text_io;
procedure Display_ASCII is
package Int_IO is new Text_IO.Integer_IO (Integer);
begin -- Display_ASCII
for I in ASCII.NUL .. ASCII.SUB loop
Text_IO.Put ("Value: ");
Int_IO.Put (Character'Pos(I), 3);
-- the attribute 'Pos converts a character into
-- its position number (value) in the ASCII
-- character set
Text_IO.New_Line;
end loop;
end Display_ASCII;